Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 585,436.7 2,018.66 241,990.5 1,170,563 4,048.40 502,339.8 585,126.44 99.9
lp://DOT/LCDOT 3,436,467.0 4,316.75 1,663,126.2 3,380,646 4,244.63 1,646,932.1 55,821.37 9.5
lp://AUSD/LCDOT 2,117,123.1 15,941.47 1,018,561.5 2,100,716 15,805.71 1,036,953.7 16,407.19 2.8
lp://ACA/AUSD 1,730,204.6 29,896.50 1,985,761.1 1,744,074 32,105.93 2,102,429.8 13,869.75 2.4

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,525,795.27 -533.31 -6,666.18 NA NA NA NA NA
lp://KINT/KUSD -1,274,793.28 -255.72 -4,092.11 NA NA NA NA NA
lp://PHA/KUSD -1,035,159.21 -480.88 -2,492.36 NA NA NA NA NA
lp://KUSD/KINT 1,253,436.78 -188.51 -3,846.61 19,662.34 404.77 7,684.33 1,233,774.45 NA
lp://KUSD/PHA 1,028,685.12 -342.24 -2,439.48 14,598.38 1,966.93 13,124.27 1,014,086.74 NA
lp://KUSD/KBTC 1,414,257.99 -101.22 -7,076.77 462,258.27 2,256.59 166,402.38 951,999.72 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,203.60 7.56 389.71 4,203.60 NA
lp://KUSD/ARIS2 140,487.51 11.15 31,371.58 138,300.87 11.16 72,760.71 2,186.64 NA
lp://KUSD/KSM 542,658.74 5,499.39 373,499.70 544,726.92 5,498.12 382,281.14 2,068.18 NA
lp://KAR/KSM 1,004,487.30 1,981.05 260,982.31 1,005,596.31 1,981.73 261,845.02 1,109.01 NA
lp://KUSD/LKSM 535,612.45 1,906.26 180,290.57 534,568.72 1,910.09 221,693.87 1,043.73 NA
lp://KAR/LKSM 783,367.51 1,159.12 84,636.81 784,215.83 1,160.23 173,826.48 848.32 NA
lp://KUSD/BNC 56,202.10 296.91 14,043.94 55,716.46 305.71 13,936.10 485.64 NA
lp://KAR/KUSD 619,984.69 579.84 185,304.01 620,228.30 1,370.66 257,148.97 243.61 NA
lp://KSM/LKSM 103,252.13 139.37 14,901.06 103,409.18 139.55 15,606.22 157.04 NA
lp://KAR/QTZ 23,714.42 39.18 3,578.20 23,841.69 39.45 5,545.19 127.26 NA
lp://KUSD/QTZ 25,000.89 39.23 3,141.24 25,082.86 39.46 5,802.26 81.97 NA
lp://KSM/ARIS 65.75 1.90 54.42 131.43 3.86 114.66 65.69 NA
lp://KUSD/RMRK 11,503.35 10.06 20,010.30 11,545.27 10.12 20,249.05 41.91 NA
lp://KSM/RMRK 6,437.80 10.03 5,357.39 6,473.89 10.08 5,380.92 36.09 NA
lp://KUSD/CSM 20,753.60 429.27 2,879.09 20,736.88 429.27 2,905.27 16.71 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```